10 EM TESTPROGRAMM FUER "XREF"
20 READ TEXT$,TEXTE$,TEX$(1),ANZAHL
30 IFAN>1E3THENGOSUB1000
40 PRINTTE$AN
50 GOTO1000
60 PRINT"*[167]1000[165]*":REM <CBM-M> 1000 <CBM-G>
70 DATA "ABC,DEF","UVW:XYZ",TTT,3
1000 PRINTTE$"TEST"